home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
glass
/
glass.lha
/
GLASS
/
libtmc
/
goodout
< prev
next >
Wrap
INI File
|
1991-01-31
|
1KB
|
59 lines
[]
(tuple1, 24)
Cons1
(Cons2 Cons3 (tuple))
(Cons2 (Cons3 [42] [42, 42]) (tuple, [42], [42, 42]))
(
Cons2
(Cons3 [42] [42, 42] [42, 42, 42] [42, 42, 42, 42] [42, 42, 42, 42, 42])
(
tuple,
[42],
[42, 42],
[42, 42, 42],
[42, 42, 42, 42],
[42, 42, 42, 42, 42]
)
)
(
Cons2
(
Cons3
[42]
[42, 42]
[42, 42, 42]
[42, 42, 42, 42]
[42, 42, 42, 42, 42]
[42, 42, 42, 42, 42, 42]
[42, 42, 42, 42, 42, 42, 42]
[42, 42, 42, 42, 42, 42, 42, 42]
)
(
tuple,
[42],
[42, 42],
[42, 42, 42],
[42, 42, 42, 42],
[42, 42, 42, 42, 42],
[42, 42, 42, 42, 42, 42],
[42, 42, 42, 42, 42, 42, 42],
[42, 42, 42, 42, 42, 42, 42, 42]
)
)
Top
level
printword().
(Bractest 42)
(Bractest 42 (Bractest 42))
(Bractest 42 (Bractest 42 (Bractest 42)))
(Constest [bla, bla, test, sdfsdhlfhew, sdfshdfksd, StopFscanCons])
(Inttest 0 1 2 3 12 (-23) (-9) (-1))
(Unsignedtest 2 3 12 1223 2349 42)
(Stringouttest "" "Test")
(Stringintest "a" "bcdef" "blablabla" "\"" "\n" "\001" "\n" "\323" "STOP")
(Tmboolouttest True False True True False)
fprint_int: [12 0 (-42)]
fprint_unsigned: [12 0 42]
fprint_string: ["blabla" "" "reutel"]
tmlineno=9